1) E vs. 2) E[CSP,SYS]	SRCCOM	07-03-75	08:24	PAGES 1,1

******** E **** PAGE 1  LINE 234
1)	C00565 00232	********* BEG OF ESSAY DEFS *********
1)	C00584 00233	SUBSTR
1)	C00595 00234	SPOOLC
1)	C00600 00235	BEGIN SPSUB
1)	C00607 00236	TELBUF,CHKUP,CHECKU,CHTEXT,ASCASC,CHOUT3,CHOUT6
1)	C00614 00237	TELLME,FBI
1)	C00628 00238	PDL, PATCH, PAT, ZVARS, LEGTAB
1)	C00630 ENDMK
1)	C⊗;
*** E[CSP,SYS] *** PAGE 1  LINE 234
2)	C00566 00232	********* BEG OF ESSAY DEFS *********
2)	C00585 00233	SUBSTR
2)	C00596 00234	SPOOLC
2)	C00601 00235	BEGIN SPSUB
2)	C00608 00236	TELBUF,CHKUP,CHECKU,CHTEXT,ASCASC,CHOUT3,CHOUT6
2)	C00615 00237	TELLME,FBI
2)	C00629 00238	PDL, PATCH, PAT, ZVARS, LEGTAB
2)	C00631 ENDMK
2)	C⊗;


******** E **** PAGE 230  LINE 9
1)	-2	Line count for /F mode.
1)	-1	Name of device in SIXBIT (DSK, UDP etc)
*** E[CSP,SYS] *** PAGE 230  LINE 9
2)	-2	Number of lines per page in /F mode.
2)	-1	Name of device in SIXBIT (DSK, UDP etc)


******** E **** PAGE 230  LINE 49
1)	ZDATA:	BLOCK ZSIZE	;Space for file names and data
1)		0
*** E[CSP,SYS] *** PAGE 230  LINE 49
2)	ZDATA:	BLOCK ZSIZE-2	;Space for file names and data
2)		0		;Not /F	  for QUERY (?) reference
2)		446353000000	;DSK
2)		450000000000	;E
2)		415463000000	;ALS
2)		0		;to match EDFIL
2)		006560445743	;UPDOC
2)		BLOCK ZENT-4	;Space for rest of QUERY (?) data
2)		0


******** E **** PAGE 230  LINE 64
1)		TRNN F,REDNLY		;Don't change home designation if read-only
1)		MOVEM T,ZDATAR		;Save new home index

	1) E vs. 2) E[CSP,SYS]	SRCCOM	07-03-75	08:24	PAGES 230,230

1)		MOVE TT,ARRL
*** E[CSP,SYS] *** PAGE 230  LINE 71
2)	;	TRNN F,REDNLY		;Don't change home designation if read-only
2)		MOVEM T,ZDATAR		;Save new home index
2)		MOVE TT,ZFLAGR#
2)		MOVEM TT,ZFLAGN#
2)		MOVEM F,ZFLAGR
2)		MOVE TT,ARRL


******** E **** PAGE 230  LINE 176
1)	;	HRL C,SPAGE
1)	;	MOVEM C,ZDATA+1(T)	;May be overwritten, but save just in case
*** E[CSP,SYS] *** PAGE 230  LINE 186
2)	;	HRL C,SQAGE
2)	;	MOVEM C,ZDATA+1(T)	;May be overwritten, but save just in case


******** E **** PAGE 231  LINE 34
1)		CAIL T,ZNUM
1)		JRST EPSIL4
*** E[CSP,SYS] *** PAGE 231  LINE 34
2)		CAILE T,ZNUM		;QUERY is now just beyond and is included
2)		JRST EPSIL4


******** E **** PAGE 231  LINE 138
1)		MOVE T,ZDATAN
1)		MOVEM T,ZINDEX	;Save just as in EPSIL0
1)		TRZ F,REDNLY	;Set for READWRITE
*** E[CSP,SYS] *** PAGE 231  LINE 138
2)		MOVEM F,ZFLAGR
2)		MOVE T,ZDATAN
2)		MOVEM T,ZINDEX	;Save just as in EPSIL0
2)		MOVE T,ZFLAGN
2)		TRNN T,REDNLY
2)		JRST .+4
2)		TRO F,REDNLY
2)		SETOM RDONLY
2)		JRST EPSIL1
2)		TRZ F,REDNLY	;Set for READWRITE


******** E **** PAGE 231  LINE 157
1)	;QUERY allows one to reference the file E.ALS[UP,DOC] to check on some feature
1)	;of E without losing ones place in the file being edited.
1)	QUERY:	PUSHJ P,ZSAVE	;Save a record of present conditions
1)		ANDI F,ATTMOD!REDNLY

	1) E vs. 2) E[CSP,SYS]	SRCCOM	07-03-75	08:24	PAGES 231,231

1)		TLO F,ZATT
1)		MOVEI T,0
1)		MOVEI TT,[ASCIZ \E.ALS[UP,DOC]/1P/1L/R\]
1)		PTWRS7 T	;This should put the string into the PTY buffer
1)		MOVEI TT,15	;We need a carriage return without a line feed
1)		PTWR1W T	;Init. the marks array.
1)		JRST EPSIL6
1)	;********* BEG OF ESSAY DEFS *********
*** E[CSP,SYS] *** PAGE 231  LINE 164
2)	;QUERY allows you to reference the file E.ALS[UP,DOC] to check on some feature
2)	;without losing your place in the file being edited. You gets back home by the H
2)	;command.  On a second call, QUERY now remembers where you were and returns there.
2)	QUERY:
2)		MOVEI A,ZNUM	;Data is just beyond the other ZDATA
2)		TRO F,ARG	;Pretend that there was an argument of ZNUM
2)		JRST LAMBDA
2)	;********* BEG OF ESSAY DEFS *********